with Note.Fonctionalites;

package body Matiere.Fonctionalites is

   FUNCTION CompareEtat(X, Y : Matiere) return Boolean is
   begin
      return Note.Fonctionalites.CompareEtat(X.Une_Note, Y.Une_Note);
   end CompareEtat;

   FUNCTION CompareValeur(X, Y : Matiere) return Boolean is
   begin
      return Note.Fonctionalites.CompareValeur(X.Une_Note, Y.Une_Note);
   end CompareValeur;

   FUNCTION CompareCoef(X, Y : Matiere) return Boolean is
   begin
      return X.Un_Coefficient < Y.Un_Coefficient;
   end CompareCoef;

   FUNCTION CompareIntitule(X, Y : Matiere) return Boolean is
   begin
      return X.Un_Intitule < Y.Un_Intitule;
   end CompareIntitule;

end Matiere.Fonctionalites;
